home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / nem / nem.exe / SELPROC.PLP < prev    next >
Text File  |  1991-08-17  |  4KB  |  113 lines
  1. /* auto pilot program ｢NEM 2.04｣ 1991.4.01 By GOOSE(MAF00070) */
  2. /* %Selproc  { */
  3. case(DEBUG,{Yes},{display({PROCNUM:"}|PROCNUM|{"\n})});
  4. display({★現在 }|@body(PROCNUM,,{,})|{ が選択されています｡\n});
  5. select({ [NEM }|lvl|{] 処理選択:実行したい順序で選択して下さい｡},
  6.     {6000},{PROCESS:={No;};im({Yes})},
  7.     {★開始1:終了後 回線切断},{PROCESS:=PROCESS|{No;};im({No})},
  8.     {★開始2:終了後 切断せず},{PROCESS:=PROCESS|{CON;No;};im({No})},
  9.     {★一時停止(接続中のみ)},
  10.         {display({★★オートパイロットを再開する時は｢PLTCONT｣と入力して下さい｡\n});
  11.         chat({Yes});
  12.         loop({wait({600},{im({Yes})},
  13.             {PLTCONT},{display({\n★★オートパイロットを再開します｡\n});
  14.             chat({No});im({No})})
  15.         });
  16.         im({Yes})},
  17.     {★ﾌｫｰﾗﾑの一時変更},
  18.         {%ONEPROC @body(@Getfield(SETUPF,{FORUM}),,{No,})|{選択終了,}|{No,};
  19.         case(ONEPROC={選択終了,No,},
  20.             {Yes},{Pleasset({フォーラム名});im({Yes})},
  21.             {No},
  22.              {display({★現在,設定されている内容は｢});
  23.               display(@body(FORUM,,{,No,})|{｣です｡\n});
  24.               %TITLE { このﾊﾟｲﾛｯﾄ実行中に使用したいﾌｫｰﾗﾑを指定してください｡};
  25.               var TEMPFORM[80];TEMPFORM:={};
  26.               loop({%temp1 @Selelm;
  27.                 case(temp1={},
  28.                     {Yes},{TEMPFORM:=FORUM;im({No})},
  29.                     {No},{case(temp1={選択終了},
  30.                         {Yes},{TEMPFORM:=TEMPFORM|{No,};im({No})},
  31.                         {No},{TEMPFORM:=TEMPFORM|temp1|{,};
  32.                             display({★現在,選択されているのは｢});
  33.                             display(@body(TEMPFORM,,{,})|{｣です｡\n});
  34.                             im({Yes})})})});
  35.             case(TEMPFORM={},
  36.                 {No},{case(TEMPFORM={No,},
  37.                 {No},{FORUM:=TEMPFORM;
  38.                     display({★設定内容を｢}|@head(FORUM,{,No,}));
  39.                     display({｣に変更しました｡\n});})});
  40.             im({Yes})})
  41.     },
  42.     {★受:1.未読ﾒｰﾙ},
  43.         {case(@Getfield(SETUPF,{MAILPATH})={No},{Yes},{Pleasset({メールの格納先})},
  44.             {No},{PROCESS:=PROCESS|{RML;};PROCNUM:=PROCNUM|{1,}});
  45.         im({Yes})},
  46.     {★送:4.ﾌｧｲﾙ->ﾒｰﾙ(ﾃｷｽﾄ)},
  47.         {%TITLE { メール発信する};%temp @Selfile;
  48.         case(temp={No,},
  49.             {Yes},{im({Yes})},
  50.             {No},{PROCESS:=PROCESS|{SMLT=}|temp|{;};PROCNUM:=PROCNUM|{4,};im({Yes})})},
  51.     {     2.未読会議室},
  52.         {case(@Getfield(SETUPF,{FORUM})={No},{Yes},{Pleasset({フォーラム名})},
  53.             {No},{PROCESS:=PROCESS|{RMS;};PROCNUM:=PROCNUM|{2,}});
  54.         im({Yes})},
  55.     {     5.ﾌｧｲﾙ->ﾒｰﾙ(ﾊﾞｲﾅﾘ)},
  56.         {%temp @Selbmail;
  57.         case(temp<>{},{Yes},{PROCESS:=PROCESS|{SMLB=}|temp|{;};PROCNUM:=PROCNUM|{5,}});
  58.         im({Yes})},
  59.     {     3.未読ＨＰ},
  60.         {case(@Getfield(SETUPF,{HP})={No},{Yes},{Pleasset({ＨＰ名})},
  61.             {No},{PROCESS:=PROCESS|{RHP;};PROCNUM:=PROCNUM|{3,}});
  62.         im({Yes})},
  63.     {     6.ﾌｧｲﾙ->会議室},
  64.         {%TITLE { 会議室に書き込む};%temp @Selfile;
  65.         case(temp={No,},{Yes},{im({Yes})},
  66.             {No},{PROCESS:=PROCESS|{SMS=}|temp|{;};PROCNUM:=PROCNUM|{6,};im({Yes})})},
  67.     {★選択の取消},
  68.         {case(PROCESS={},{No},
  69.         {PROCESS:=@body(@body(PROCESS,,{;}),,{;});
  70.         PROCNUM:=@body(@body(PROCNUM,,{,}),,{,});
  71.         case(PROCESS={},{No},{PROCESS:=PROCESS|{;};PROCNUM:=PROCNUM|{,}}) });
  72.         case(DEBUG,{Yes},{display({PROCNUM:"}|PROCNUM|{"\n})});
  73.         im({Yes})},
  74.     {     7.ﾌｧｲﾙ->HP},
  75.         {%TITLE { HPに書き込む};%temp @Selfile;
  76.         case(temp={No,},{Yes},{im({Yes})},
  77.             {No},{PROCESS:=PROCESS|{SHP=}|temp|{;};
  78.                 PROCNUM:=PROCNUM|{7,};im({Yes})})},
  79.     {★ｾｯﾄｱｯﾌﾟﾌｧｲﾙの変更},{Setup;im({Yes})},
  80.     {     8.ﾒﾓ->ﾒｰﾙ},
  81.         {%TITLE { メール発信する};%temp @Selmemo;
  82.     case(temp={No,},{Yes},{im({Yes})},
  83.         {No},{PROCESS:=PROCESS|{SMML=}|temp|{;};
  84.             PROCNUM:=PROCNUM|{8,};im({Yes})})},
  85.     {★他のｵｰﾄﾊﾟｲﾛｯﾄの実行},
  86.         {select({｢stop｣で終了しているｵｰﾄﾊﾟｲﾛｯﾄは,本ﾊﾟｲﾛｯﾄに戻れなくなります｡},
  87.             {180},{im({Yes})},
  88.         { 確認 },{%EXEPLT @filesel({PLT});
  89.             case(EXEPLT={},{No},{%EXEPLT @Getcdir2|{\}|EXEPLT;%temp {#}|EXEPLT;temp});
  90.         im({Yes})}) },
  91.     {     9.ﾒﾓ->会議室},
  92.         {%TITLE { 会議室に書き込む};%temp @Selmemo;
  93.         case(temp={No,},
  94.             {Yes},{im({Yes})},
  95.             {No},{PROCESS:=PROCESS|{SMMS=}|temp|{;};
  96.                 PROCNUM:=PROCNUM|{9,};im({Yes})})},
  97.     {★終了},{stop},
  98.     {    10.ﾒﾓ->HP},
  99.         {%TITLE { HPに書き込む};%temp @Selmemo;
  100.         case(temp={No,},{Yes},{im({Yes})},
  101.             {No},{PROCESS:=PROCESS|{SMHP=}|temp|{;};
  102.                 PROCNUM:=PROCNUM|{10,};im({Yes})})}  /*** , ***/
  103. /* 他のパイロットも外部呼出しで使えます｡たとえば『おくと氏のFILEUTY』*/
  104. /* やＤａｎｔｅ氏のEXFSならここと｢MAINPROC.PLT内のフルパス名定義｣を */
  105. /* 変更すれば使えます｡ */
  106. /*    {★ﾌｧｲﾙﾕｰﾃｨﾘﾃｨ},{Fileuty;im({Yes})},
  107.     {★ＥＸＦＳ },{Exfs;im({Yes})} ***/
  108. /*    {★ﾒﾓ上のﾊﾟｲﾛｯﾄ実行 },{%temp @input({実行するメモの番号を入力して下さい｡});
  109.         case(temp<>{},{Yes},{%temp @memo(temp);temp});
  110.         im({Yes})} */
  111. )
  112. /* }; */
  113.